0 IFMM=1THEN200
5 GOSUB60100:CLR:MM=1
10 REM DELETE RIGHT - LUCY S. TERRIER
15 FORJ=680TO725:READK:CS=CS+K:NEXT:RESTORE:IFCS<>4855THENPRINT"DATA ERROR":END
20 FORJ=680TO725:READK:POKEJ,K:NEXT
30 DATA120,162,181,160,002,142,020,003
35 DATA140,021,003,088,096,072,138,072
40 DATA152,072,165,197,201,003,208,014
45 DATA169,002,133,198,169,029,141,119
50 DATA002,169,020,141,120,002,104,168
55 DATA104,170,104,076,049,234
100 PRINT"[147]                DELETE RIGHT"
110 PRINT"              BY LUCY TERRIER"
120 PRINT"    [129]TO ACTIVATE [149]DELETE RIGHT[129], ENTER"
130 PRINT"SYS680[129]. TO DE-ACTIVATE [149]DELETE RIGHT[129],"
140 PRINT"ENTER SYS65418[129]."
150 PRINT"    [129]WHEN ACTIVATED, PRESS F7 TO USE"
160 PRINT"[149]DELETE RIGHT'S[129] FUNCTION."
170 PRINT"    [129]ENTER GOTO LOADSTAR[129] TO RETURN"
180 PRINT"TO LOADSTAR.":POKE198,.
190 END
200 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
210 IFER<>63THENEND
220 SYS65418:LOAD"HELLO CONNECT",8
60100 POKE53280,7:POKE53281,7
60110 PRINT"[147]"CHR$(142)"[149][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"         [156]LOADSTAR PRESENTS:"
60160 PRINT"                              "
60170 PRINT"             DELETE RIGHT     [129] "
60180 PRINT"                              [129] "
60190 PRINT"          BY LUCY S. TERRIER  [129] "
60200 PRINT"                              [129] "
60210 PRINT"            COPYRIGHT 1987    [129] "
60220 PRINT"                              [129] "
60230 PRINT"                               "
60240 PRINT"       [156]PRESS SPACE TO CONTINUE."
60250 A=PEEK(203):IFA<>60THEN60250
60260 RETURN